60 LINE (31,19)-(288,180),2,B:LINE (33,21)-(54,26),3,BF:GOSUB 1000:GOSUB 300
1000 FOR XN=3 TO 31:DN=0:YN=0:GOSUB 400:NEXT XN
1010 FOR YN=1 TO 19:IF YN AND 1 THEN GOSUB 1100 else gosub 1200
1020 NEXT YN
1030 XN=0:YN=19:DN=1:GOSUB 400
1040 FOR YN=18 TO 5 STEP -1:XN=0:DN=2:GOSUB 400:NEXT YN
1050 DN=2:DN2=2:return
1100 DN=3:XN=31:gosub 400:FOR XN=30 TO 1 STEP -1:DN=1:gosub 400:next XN:return
1200 DN=3:XN=1:gosub 400:FOR XN=2 TO 31:DN=0:gosub 400:next XN:return
